fix missing direct parameter forwarding into emit_limple_call_ref

diff --git a/src/comp.c b/src/comp.c
index 15699a02118e1b406f6c377e4e09912c22453423..2ab9d034ebffa55ed1cce670281f6ebe0062c5f0 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -1145,7 +1145,7 @@ emit_limple_call_ref (Lisp_Object insn, bool direct)
   Lisp_Object callee = FIRST (insn);
   EMACS_UINT nargs = XFIXNUM (Flength (CDR (insn)));
   EMACS_UINT base_ptr = XFIXNUM (FUNCALL1 (comp-mvar-slot, SECOND (insn)));
-  return emit_call_ref (callee, nargs, comp.frame[base_ptr], false);
+  return emit_call_ref (callee, nargs, comp.frame[base_ptr], direct);
 }
 
 /* Register an handler for a non local exit.  */